home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 3420A.ZIP / TW150L.ZIP / TSDDEMO.CH < prev    next >
Text File  |  1992-04-21  |  7KB  |  134 lines
  1. //┌──────────────────────────────────────────────────────────────────────────┐
  2. //│                                                                          │
  3. //│                            TSDDEMO.CH                                    │
  4. //│                                                                          │
  5. //│          Header File FOR TSDDEMO.PRG Demonstration Program               │
  6. //│                   Clipper 5.0 Interface Library                          │
  7. //│                                                                          │
  8. //│      Copyright ( C ) 1992 by Trilateral Systems Development Ltd.         │
  9. //│    All Rights Reserved * Version 1.50 * Release Date: May 1, 1992        │
  10. //│                                                                          │
  11. //│                         18  Bond St. South                               │
  12. //│                         Dundas, ON, Canada                               │
  13. //│                              L9H 3H1                                     │
  14. //│                           416-628-5086                                   │
  15. //│                                                                          │
  16. //│                                                                          │
  17. //│     Documented: 04-18-92      at 01:20:20pm                              │
  18. //└──────────────────────────────────────────────────────────────────────────┘
  19. #define YC ( .024 * xc * xc ) - ( 1.44 * xc ) + 24.6
  20. #define FULLSCREEN 1, 0, MAXROW() - 1, MAXCOL()
  21. #define SYSNAME "TSDWIN.LIB"
  22.  
  23. #translate BEEPER => TONE( 800, 0 )
  24.  
  25. #define CTNORM  IIF( ! lMono, "w+/b,gr+/r,,bg+/b,n/g,w/b,n/w", ;
  26.                                 "w+/n, n/w,, n/w, n/w, w/n, w/n" )  // Normal Text Color
  27. #define CFNORM  IIF( ! lMono, { "bg+/b", "bg/b" }, ;
  28.                                 { "w+/n", "w/n" } )       // Normal Frame Color
  29. #define CTWNDW  IIF( ! lMono, "b/bg, gr+/r,, b/bg, n/g, w/bg, n/w", ;
  30.                                 "w+/n, n/w,, n/w, n/w, w/n, w/n" )  // Boxed Text Color
  31. #define CFWNDW  IIF( ! lMono, { "gr+/bg", "w/bg" }, ;
  32.                                 { "w+/n", "w/n" } )       // Boxed Frame Color
  33. #define CSECUR  IIF( ! lMono, "r/r, r/r,,, r/r", ;
  34.                                 "n/n, n/n,,, n/n" )       // Password Color
  35. #define CTXERR  IIF( ! lMono, "gr+/rb, gr+/rb,,, n/w", ;
  36.                                 "w+/n, n/w,, n/w, w/n" )  // Error Color
  37. #define CFRERR  IIF( ! lMono, { "bg+/rb", "bg/rb" }, ;
  38.                                 { "w+/n", "w/n" } )       // Error Frame Color
  39. #define CTXMSG  IIF( ! lMono, "w+/rg, gr+/b,, r/w, gr+/rg,n/w", ;
  40.                                 "w+/n, n/w,, n/w,n/w, w/n" )  // Message Color
  41. #define CFRMSG  IIF( ! lMono, { "gr+/gr", "w/gr" }, ;
  42.                                 { "w+/n", "w/n" } )       // Message Frame Color
  43. #define CMENUP  IIF( ! lMono, "n/w,gr+/r,,r/w,b/w", ;
  44.                               "w+/n,n/w,,w+/n,w/n," )        // Menu Prompt Colour
  45.  
  46. #define CTTITLE "n/w"
  47.  
  48. #define CWTITLE "n/w"
  49.  
  50. #define YSHAD 3
  51.  
  52. #define YFRM  10
  53.  
  54. #define YEXPL .F.
  55.  
  56. #define YBLINK .F.
  57.  
  58. #define CFMENUP  IIF( ! lMono, { "gr+/w", "n/w" }, ;
  59.                                 { "n/w", "w/n" } )       // Message Frame Color
  60. #define CTMENUP  IIF( ! lMono, "b/w", "n/w" )  // Message Color
  61.  
  62. #define CPMENUP  IIF( ! lMono, "n/w,bg+/n,,r/w,b/w", ;
  63.                               "w+/n,n/w,,w+/n,w/n," )        // Menu Prompt Colour
  64. #define Y2FRM    2
  65.  
  66. #define INITGLOBALS twInitGlobal( { CTNORM, CFNORM, CTWNDW, CFWNDW, ;
  67.                                     CSECUR, CTXERR, CFRERR, CTXMSG, ;
  68.                                     CFRMSG, CTTITLE, CWTITLE, CMENUP, ;
  69.                                     YSHAD, YFRM, YEXPL, YBLINK, CFMENUP, ;
  70.                                     CTMENUP, CPMENUP, Y2FRM } )
  71.  
  72. #define COLORN         twGetGlobal( 1 )
  73. #define COLORR         twUnsClr( twGetGlobal( 1 ))
  74. #define COLORFN        twGetGlobal( 2 )
  75. #define COLORW         twGetGlobal( 3 )
  76. #define COLORFW        twGetGlobal( 4 )
  77. #define COLORS         twGetGlobal( 5 )
  78. #define COLORE         twGetGlobal( 6 )
  79. #define COLORFE        twGetGlobal( 7 )
  80. #define COLORM         twGetGlobal( 8 )
  81. #define COLORFM        twGetGlobal( 9 )
  82. #define TCOLOR         twGetGlobal( 10 )
  83. #define WTCOLOR        twGetGlobal( 11 )
  84. #define MENUCLR        twGetGlobal( 12 )
  85. #define DSHADOW        twGetGlobal( 13 )
  86. #define DFRAME         twGetGlobal( 14 )
  87. #define DEXPLODE       twGetGlobal( 15 )
  88. #define DBLINK         twGetGlobal( 16 )
  89. #define MENUFCLR       twGetGlobal( 17 )
  90. #define MENUTCLR       twGetGlobal( 18 )
  91. #define MENUPCLR       twGetGlobal( 19 )
  92. #define D2FRAME        twGetGlobal( 20 )
  93.  
  94.  
  95. #define BLA_CYH IIF( ! lMono, "n/*bg",   "w/n" )
  96. #define YEL_RDH IIF( ! lMono, "gr+/*r",  "w+/n" )
  97. #define BLA_GNH IIF( ! lMono, "n/*g",    "n/w" )
  98. #define WHH_BLH IIF( ! lMono, "w+/*b",   "w/n" )
  99. #define RDH_YLH IIF( ! lMono, "r+/*gr",  "w+/n" )
  100. #define WHH_VIH IIF( ! lMono, "w+/*rb",  "n/w" )
  101. #define RDH_CYH IIF( ! lMono, "r+/*bg",  "w+/n" )
  102. #define YEL_CYH IIF( ! lMono, "gr+/*bg", "w+/n" )
  103. #define WHI_CYH IIF( ! lMono, "w+/*bg",  "w+/n" )
  104. #define BLU_CYH IIF( ! lMono, "b/*bg",   "w+/n" )
  105. #define YEL_BLU IIF( ! lMono, "gr+/b",   "w+/n" )
  106. #define YEL_RED IIF( ! lMono, "gr+/r",   "w+/n" )
  107. #define RED_CYN IIF( ! lMono, "r  /bg",   "n/w")
  108. #define WHH_CYN IIF( ! lMono, "w+ /bg",   "w+/n")
  109. #define BLA_CYN IIF( ! lMono, "n  /bg",   "w/n")
  110. #define YEL_CYN IIF( ! lMono, "gr+/bg",   "w+/n")
  111. #define BLU_CYN IIF( ! lMono, "b  /bg",   "w+/n")
  112. #define RDH_CYN IIF( ! lMono, "r+ /bg",   "w+/n")
  113. #define GNH_CYN IIF( ! lMono, "g+ /bg",   "w+/n")
  114. #define BLH_CYN IIF( ! lMono, "b+ /bg",   "w+/n")
  115.  
  116. #define MAINCLC IIF( ! lMono, "gr+/gr,g+/n,,,r+/n","w+/n,n/w,,,w/n")
  117. #define MAINCYN IIF( ! lMono, "n/bg,w+/b,,,n/w", "w+/n,n/w,,,w/n")
  118.  
  119. #define CBUTTON   IIF( ! lMono, "w+/rg, gr+/b,, r/w, gr+/rg,n/w", ;
  120.                                 "w+/n, n/w,, n/w,n/w, w/n" )  // Message Color
  121. #define CFBUTTON  IIF( ! lMono, { "gr+/rg", "w/rg" }, ;
  122.                                 { "n/w", "w/n" } )       // Message Frame Color
  123.  
  124. #define CCHECK    IIF( ! lMono, "w+/g, gr+/r,, r/w, gr+/g,n/w", ;
  125.                                 "w+/n, n/w,, n/w,n/w, w/n" )  // Message Color
  126. #define CFCHECK   IIF( ! lMono, { "gr+/g", "w/g" }, ;
  127.                                 { "n/w", "w/n" } )       // Message Frame Color
  128.  
  129. #define CRADIO    IIF( ! lMono, "w+/b, gr+/r,, r/w, bg+/r,n/w", ;
  130.                                 "w+/n, n/w,, n/w,n/w, w/n" )  // Message Color
  131.  
  132. #define CFRADIO   IIF( ! lMono, { "gr+/b", "w/b" }, ;
  133.                                 { "n/w", "w/n" } )       // Message Frame Color
  134.